home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
batchut
/
batkit50.zip
/
COLOTONE.BAT
< prev
next >
Wrap
DOS Batch File
|
1988-06-26
|
852b
|
38 lines
echo off
:SELECT
GETKEY /W30/K"CTX"/F"COLOTONE.GKF@S"/E
if errorlevel 88 goto END
if errorlevel 84 goto TONES
:COLORS
GETKEY /M"#&0E@C"/W0/N
getkey /f"colotone.GKF@C"/w0/n/s
WAIT 000500 /c
GETKEY /m"@C#&6AEnter #&CEX#&6A to exit."/w0
ECHO
:GETCOLOR
GetKey /l2/V"COLOR"/M"#&0EEnter COLOR value (00-FFh) to test [xx]: @O"/S
if .%COLOR% == .X goto ENDC
GETKEY /M"#&%COLOR% This is what [##&%COLOR%] looks like! =*=*=*=*=*=*=*=*=* "/w0
goto GETCOLOR
:ENDC
SET COLOR=
goto SELECT
:TONES
GETKEY /F"COLOTONE.GKF@T"/N
cls
:GETTONE
GETKEY /K"1234567890ABCDEFX"/M"#&0AHex TONE value (1-F) to test {X to quit}: [?00] "/V/E
if errorlevel 88 goto ENDT
GETKEY /W0/M"#&20 >> &%GK%00 sounds like this: @T08#&%GK%00 @T02#&%GK%00 @T#&%GK%00"/N
goto GETTONE
:ENDT
goto SELECT
:END
SET COLOR=
SET GK=
GETKEY /M"#&0E@C"/W0/N